home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / INSIDE.STORY / STARTUP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1986-04-28  |  713 b   |  25 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 1000
  2. 1  REM COPYRIGHT APPLE COMPUTER, INC. 1984, 1986, 1988 ALL RIGHTS RESERVED V2.0 6/12/86
  3. 15  TEXT 
  4. 25  PRINT  CHR$(4)"BLOAD /tutor/inside.story/RED.EYE.HOOK,A$300"
  5. 27  PRINT  CHR$(4)"bload /tutor/inside.story/load.fonts"
  6. 29  POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454
  7. 30  HGR : HCOLOR= 3
  8. 35  PRINT  CHR$(4)"BLOAD /tutor/inside.story/RED.EYE.PRO"
  9. 36  CALL 5 *4096: REM Call $5000
  10. 40  VTAB 12: HTAB 8
  11. 45  TEXT : VTAB 1
  12. 100  PRINT  CHR$(4)"BLOAD /tutor/inside.story/P.TITLE,A$2000"
  13. 110  POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  14. 120  VTAB 21: HTAB 6: PRINT "Welcome to The Inside Story."
  15. 125  PRINT : VTAB 24
  16. 130  HTAB 7: PRINT "Press RETURN to continue.";: VTAB 1: PRINT 
  17. 140 A =  PEEK(49152): IF A <128  THEN 140
  18. 145  POKE 49168,0: IF A -128 < >13  THEN 140
  19. 800  POKE 104,96: POKE 103,1: POKE 24576,0
  20. 810  LOMEM: 24576
  21. 900  PRINT  CHR$(4)"-menu"
  22. 1000 EC =  PEEK(222): IF EC = 255  THEN  RESUME 
  23. 1005  TEXT : HOME 
  24. 1010  PRINT "ERROR #"EC" AT LINE " PEEK(219) *256 + PEEK(218)
  25. 1020  STOP